home *** CD-ROM | disk | FTP | other *** search
/ Play Windows 1995 October / CD [ASOWIN08_].bin / data / shared.dir / 00203.ls < prev    next >
Encoding:
Text File  |  1995-08-15  |  593 b   |  40 lines
  1. on f_sp
  2.   repeat with n = 32 to 41
  3.     if the type of sprite n <> 0 then
  4.       puppetSprite(n, 0)
  5.     end if
  6.   end repeat
  7. end
  8.  
  9. on f_sound
  10.   puppetSound(0)
  11. end
  12.  
  13. on f_aiff
  14.   repeat with n = 1 to 4
  15.     sound fadeOut n, 120
  16.   end repeat
  17. end
  18.  
  19. on f_aiff2
  20.   if soundBusy(1) then
  21.     go(the frame)
  22.   else
  23.     if soundBusy(2) then
  24.       go(the frame)
  25.     else
  26.       if soundBusy(3) then
  27.         go(the frame)
  28.       else
  29.         if soundBusy(4) then
  30.           go(the frame)
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35.   repeat with n = 1 to 4
  36.     sound stop n
  37.     sound fadeIn n, 1
  38.   end repeat
  39. end
  40.